home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / NESTING.BAS < prev    next >
BASIC Source File  |  1989-08-31  |  303b  |  17 lines
  1. ' NESTING.BAS
  2. ' This program demonstrates nesting different kinds of loops.
  3.  
  4. CLS
  5.  
  6. DO
  7.     PRINT "How many tones do you want to hear?"
  8.     INPUT "(Enter 0 to end)  ", numSounds%
  9.     PRINT
  10.    
  11.     FOR i% = 1 TO numSounds%
  12.         SOUND (i% * 100), 1
  13.     NEXT i%
  14.  
  15. LOOP UNTIL numSounds% = 0
  16.  
  17.